home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / demo3 / War.AMOS / War.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1980-07-23  |  20.7 KB  |  322 lines

  1. EMPIEZA:
  2. Unpack 7 To 0
  3. Wait Key 
  4. Paper 0
  5. Cls 
  6. Pen 10
  7. Print "           Instructions:"
  8. Print ""
  9. Print " At the beginning of the game comes the"
  10. Print "movement phase. Now you can move your"
  11. Print "soldiers from any of your lands to any"
  12. Print "other land in the map for they ride "
  13. Print "horses. If you move from and to lands"
  14. Print "that are owned by you, the two armies"
  15. Print "will join into one. If you move to a"
  16. Print "free land it will become yours. If you"
  17. Print "move to a land owned by your opponent"
  18. Print "then a fight will decide ownership. The"
  19. Print "fights are usually won by the larger"
  20. Print "army, but sometimes the small army will"
  21. Print "win making the game more interesting."
  22. Print ""
  23. Print " When one of the players is wiped out"
  24. Print "from the map, then the other wins."
  25. Print " At any time during game press ctrl-c"
  26. Print "to go back to workbench."
  27. Print ""
  28. Print ""
  29. Pen 2 : Print "       press any key to continue"
  30. Wait Key 
  31. Cls 
  32. Pen 10
  33. Print ""
  34. Print " I hope you enjoy this game. You can"
  35. Print "write to me if you have any suggestions"
  36. Print "to improve the game at this address:"
  37. Print ""
  38. Print "  Fernando Bartra"
  39. Print "  e-mail address:"
  40. Print "  fer007@scri.fsu.edu"
  41. Print ""
  42. Print " Any ideas will be appreciated."
  43. Print ""
  44. Print ""
  45. Print ""
  46. Print ""
  47. Print ""
  48. Print ""
  49. Pen 2 : Print "      press any key to play the game"
  50. Wait Key 
  51. LANDSHOW:
  52. If T=0 Then Unpack 8 To 0
  53. If T=0 Then Wait Key 
  54. If T=0 Then Pen 12
  55. If T=0 Then Cls 
  56. If T=0 Then Print "War in Makeria"
  57. If T=0 Then Print ""
  58. ' Init Stats 
  59. ' Land ownership 
  60. If T=0 Then Input "what is your name player 1 ";N$
  61. If T=0 Then Input "what is your name player 2 ";M$
  62. ' owners 
  63. If T=0 Then AA1=1 : AB2=0 : AC3=0 : AD4=0 : AE5=0 : AF6=0 : AG7=0 : AH8=0 : AI9=0 : AJ10=0
  64. If T=0 Then AK11=0 : AL12=0 : AM13=0 : AN14=0 : AO15=0 : AP16=2 : 
  65. ' Soldiers in land 
  66. If T=0 Then BA1=9 : BB2=0 : BC3=0 : BD4=0 : BE5=0 : BF6=0 : BG7=0 : BH8=0 : BI9=0 : BJ10=0
  67. If T=0 Then BK11=0 : BL12=0 : BM13=0 : BN14=0 : BO15=0 : BP16=9
  68. Cls 
  69. Unpack 6 To 0
  70. Locate 1,1 : Paper 0 : Pen 2 : Locate 3,1 : Print "1 ";N$
  71. Locate 1,2 : Pen 12 : Locate 3,2 : Print "2 ";M$
  72. 'Showing land owners 
  73. ZA1=0 : ZB2=0 : Paper 1
  74.   If AA1=1 Then Pen 3 : Locate 4,8 : Print "1" : ZA1=ZA1+1
  75.   If AA1=2 Then Pen 12 : Locate 4,8 : Print "1" : ZB2=ZB2+1
  76.   If AB2=0 Then Pen 5 : Locate 6,13 : Print "2"
  77.   If AB2=1 Then Pen 3 : Locate 6,13 : Print "2" : ZA1=ZA1+1
  78.   If AB2=2 Then Pen 12 : Locate 6,13 : Print "2" : ZB2=ZB2+1
  79.   If AC3=0 Then Pen 5 : Locate 6,17 : Print "3"
  80.   If AC3=1 Then Pen 3 : Locate 6,17 : Print "3" : ZA1=ZA1+1
  81.   If AC3=2 Then Pen 12 : Locate 6,17 : Print "3" : ZB2=ZB2+1
  82.   If AD4=0 Then Pen 5 : Locate 9,9 : Print "4"
  83.   If AD4=1 Then Pen 3 : Locate 9,9 : Print "4" : ZA1=ZA1+1
  84.   If AD4=2 Then Pen 12 : Locate 9,9 : Print "4" : ZB2=ZB2+1
  85.   If AE5=0 Then Pen 5 : Locate 12,11 : Print "5"
  86.   If AE5=1 Then Pen 3 : Locate 12,11 : Print "5" : ZA1=ZA1+1
  87.   If AE5=2 Then Pen 12 : Locate 12,11 : Print "5" : ZB2=ZB2+1
  88.   If AF6=0 Then Pen 5 : Locate 10,16 : Print "6"
  89.   If AF6=1 Then Pen 3 : Locate 10,16 : Print "6" : ZA1=ZA1+1
  90.   If AF6=2 Then Pen 12 : Locate 10,16 : Print "6" : ZB2=ZB2+1
  91.   If AG7=0 Then Pen 5 : Locate 13,15 : Print "7"
  92.   If AG7=1 Then Pen 3 : Locate 13,15 : Print "7" : ZA1=ZA1+1
  93.   If AG7=2 Then Pen 12 : Locate 13,15 : Print "7" : ZB2=ZB2+1
  94.   If AH8=0 Then Pen 5 : Locate 16,18 : Print "8"
  95.   If AH8=1 Then Pen 3 : Locate 16,18 : Print "8" : ZA1=ZA1+1
  96.   If AH8=2 Then Pen 12 : Locate 16,18 : Print "8" : ZB2=ZB2+1
  97.   If AI9=0 Then Pen 5 : Locate 18,11 : Print "9"
  98.   If AI9=1 Then Pen 3 : Locate 18,11 : Print "9" : ZA1=ZA1+1
  99.   If AI9=2 Then Pen 12 : Locate 18,11 : Print "9" : ZB2=ZB2+1
  100.   If AJ10=0 Then Pen 5 : Locate 18,13 : Print "10"
  101.   If AJ10=1 Then Pen 3 : Locate 18,13 : Print "10" : ZA1=ZA1+1
  102.   If AJ10=2 Then Pen 12 : Locate 18,13 : Print "10" : ZB2=ZB2+1
  103.   If AK11=0 Then Pen 5 : Locate 20,17 : Print "11"
  104.   If AK11=1 Then Pen 3 : Locate 20,17 : Print "11" : ZA1=ZA1+1
  105.   If AK11=2 Then Pen 12 : Locate 20,17 : Print "11" : ZB2=ZB2+1
  106.   If AL12=0 Then Pen 5 : Locate 22,12 : Print "12"
  107.   If AL12=1 Then Pen 3 : Locate 22,12 : Print "12" : ZA1=ZA1+1
  108.   If AL12=2 Then Pen 12 : Locate 22,12 : Print "12" : ZB2=ZB2+1
  109.   If AM13=0 Then Pen 5 : Locate 27,12 : Print "13"
  110.   If AM13=1 Then Pen 3 : Locate 27,12 : Print "13" : ZA1=ZA1+1
  111.   If AM13=2 Then Pen 12 : Locate 27,12 : Print "13" : ZB2=ZB2+1
  112.   If AN14=0 Then Pen 5 : Locate 25,16 : Print "14"
  113.   If AN14=1 Then Pen 3 : Locate 25,16 : Print "14" : ZA1=ZA1+1
  114.   If AN14=2 Then Pen 12 : Locate 25,16 : Print "14" : ZB2=ZB2+1
  115.   If AO15=0 Then Pen 5 : Locate 30,16 : Print "15"
  116.   If AO15=1 Then Pen 3 : Locate 30,16 : Print "15" : ZA1=ZA1+1
  117.   If AO15=2 Then Pen 12 : Locate 30,16 : Print "15" : ZB2=ZB2+1
  118.   If AP16=1 Then Pen 3 : Locate 27,20 : Print "16" : ZA1=ZA1+1
  119.   If AP16=2 Then Pen 12 : Locate 27,20 : Print "16" : ZB2=ZB2+1
  120. Wait 100
  121.   If ZA1=16 or ZB2=0 Then Locate 5,23 : Paper 0 : Pen 6 : Print N$;" wins the game" : Wait Key : Goto EMPIEZA
  122.   If ZB2=16 or ZA1=0 Then Locate 5,23 : Paper 0 : Pen 6 : Print M$;" wins the game" : Wait Key : Goto EMPIEZA
  123. Locate 3,22 : Paper 0 : Pen 2 : Print N$;" " : Input "move from where ";MA
  124.   If MA=1 and AA1=1 Then VA1=BA1 : BA1=BA1-VA1
  125.   If MA=2 and AB2=1 Then VA1=BB2 : BB2=BB2-VA1
  126.   If MA=3 and AC3=1 Then VA1=BC3 : BC3=BC3-VA1
  127.   If MA=4 and AD4=1 Then VA1=BD4 : BD4=BD4-VA1
  128.   If MA=5 and AE5=1 Then VA1=BE5 : BE5=BE5-VA1
  129.   If MA=6 and AF6=1 Then VA1=BF6 : BF6=BF6-VA1
  130.   If MA=7 and AG7=1 Then VA1=BG7 : BG7=BG7-VA1
  131.   If MA=8 and AH8=1 Then VA1=BH8 : BH8=BH8-VA1
  132.   If MA=9 and AI9=1 Then VA1=BI9 : BI9=BI9-VA1
  133.   If MA=10 and AJ10=1 Then VA1=BJ10 : BJ10=BJ10-VA1
  134.   If MA=11 and AK11=1 Then VA1=BK11 : BK11=BK11-VA1
  135.   If MA=12 and AL12=1 Then VA1=BL12 : BL12=BL12-VA1
  136.   If MA=13 and AM13=1 Then VA1=BM13 : BM13=BM13-VA1
  137.   If MA=14 and AN14=1 Then VA1=BN14 : BN14=BN14-VA1
  138.   If MA=15 and AO15=1 Then VA1=BO15 : BO15=BO15-VA1
  139.   If MA=16 and AP16=1 Then VA1=BP16 : BP16=BP16-VA1
  140. Locate 3,22 : Pen 2 : Input "where is destination ";MB
  141.   If MB=1 and AA1=1 or MB=1 and AA1=0 Then BA1=BA1+VA1 : VA1=0 : AA1=1
  142.   If MB=2 and AB2=1 or MB=2 and AB2=0 Then BB2=BB2+VA1 : VA1=0 : AB2=1
  143.   If MB=3 and AC3=1 or MB=3 and AC3=0 Then BC3=BC3+VA1 : VA1=0 : AC3=1
  144.   If MB=4 and AD4=1 or MB=4 and AD4=0 Then BD4=BD4+VA1 : VA1=0 : AD4=1
  145.   If MB=5 and AE5=1 or MB=5 and AE5=0 Then BE5=BE5+VA1 : VA1=0 : AE5=1
  146.   If MB=6 and AF6=1 or MB=6 and AF6=0 Then BF6=BF6+VA1 : VA1=0 : AF6=1
  147.   If MB=7 and AG7=1 or MB=7 and AG7=0 Then BG7=BG7+VA1 : VA1=0 : AG7=1
  148.   If MB=8 and AH8=1 or MB=8 and AH8=0 Then BH8=BH8+VA1 : VA1=0 : AH8=1
  149.   If MB=9 and AI9=1 or MB=9 and AI9=0 Then BI9=BI9+VA1 : VA1=0 : AI9=1
  150.   If MB=10 and AJ10=1 or MB=10 and AJ10=0 Then BJ10=BJ10+VA1 : VA1=0 : AJ10=1
  151.   If MB=11 and AK11=1 or MB=11 and AK11=0 Then BK11=BK11+VA1 : VA1=0 : AK11=1
  152.   If MB=12 and AL12=1 or MB=12 and AL12=0 Then BL12=BL12+VA1 : VA1=0 : AL12=1
  153.   If MB=13 and AM13=1 or MB=13 and AM13=0 Then BM13=BM13+VA1 : VA1=0 : AM13=1
  154.   If MB=14 and AN14=1 or MB=14 and AN14=0 Then BN14=BN14+VA1 : VA1=0 : AN14=1
  155.   If MB=15 and AO15=1 or MB=15 and AO15=0 Then BO15=BO15+VA1 : VA1=0 : AO15=1
  156.   If MB=16 and AP16=1 or MB=16 and AP16=0 Then BP16=BP16+VA1 : VA1=0 : AP16=1
  157. Locate 3,22 : Pen 6 : Print "moving troops to destination" : Wait 100
  158. Locate 3,22 : Print "                            " : Wait 100
  159. '    Fight 
  160.   If MB=1 and AA1=2 and BA1<VA1 Then BA1=VA1 : VA1=0 : AA1=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  161.   If MB=1 and AA1=2 and BA1>VA1 or MB=1 and AA1=2 and BA1=VA1 Then VA1=0 : AA1=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  162.   If MB=2 and AB2=2 and BB2<VA1 Then BB2=VA1 : VA1=0 : AB2=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  163.   If MB=2 and AB2=2 and BB2>VA1 or MB=2 and AB2=2 and BB2=VA1 Then VA1=0 : AB2=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  164.   If MB=3 and AC3=2 and BC3<VA1 Then BC3=VA1 : VA1=0 : AC3=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  165.   If MB=3 and AC3=2 and BC3>VA1 or MB=3 and AC3=2 and BC3=VA1 Then VA1=0 : AC3=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  166.   If MB=4 and AD4=2 and BD4<VA1 Then BD4=VA1 : VA1=0 : AD4=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  167.   If MB=4 and AD4=2 and BD4>VA1 or MB=4 and AD4=2 and BD4=VA1 Then VA1=0 : AD4=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  168.   If MB=5 and AE5=2 and BE5<VA1 Then BE5=VA1 : VA1=0 : AE5=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  169.   If MB=5 and AE5=2 and BE5>VA1 or MB=5 and AE5=2 and BE5=VA1 Then VA1=0 : AE5=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  170.   If MB=6 and AF6=2 and BF6<VA1 Then BF6=VA1 : VA1=0 : AF6=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  171.   If MB=6 and AF6=2 and BF6>VA1 or MB=6 and AF6=2 and BF6=VA1 Then VA1=0 : AF6=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  172.   If MB=7 and AG7=2 and BG7<VA1 Then BG7=VA1 : VA1=0 : AG7=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  173.   If MB=7 and AG7=2 and BG7>VA1 or MB=7 and AG7=2 and BG7=VA1 Then VA1=0 : AG7=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  174.   If MB=8 and AH8=2 and BH8<VA1 Then BH8=VA1 : VA1=0 : AH8=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  175.   If MB=8 and AH8=2 and BH8>VA1 or MB=8 and AH8=2 and BH8=VA1 Then VA1=0 : AH8=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  176.   If MB=9 and AI9=2 and BI9<VA1 Then BI9=VA1 : VA1=0 : AI9=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  177.   If MB=9 and AI9=2 and BI9>VA1 or MB=9 and AI9=2 and BI9=VA1 Then VA1=0 : AI9=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  178.   If MB=10 and AJ10=2 and BJ10<VA1 Then BJ10=VA1 : VA1=0 : AJ10=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  179.   If MB=10 and AJ10=2 and BJ10>VA1 or MB=10 and AJ10=2 and BJ10=VA1 Then VA1=0 : AJ10=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  180.   If MB=11 and AK11=2 and BK11<VA1 Then BK11=VA1 : VA1=0 : AK11=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  181.   If MB=11 and AK11=2 and BK11>VA1 or MB=11 and AK11=2 and BK11=VA1 Then VA1=0 : AK11=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  182.   If MB=12 and AL12=2 and BL12<VA1 Then BL12=VA1 : VA1=0 : AL12=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  183.   If MB=12 and AL12=2 and BL12>VA1 or MB=12 and AL12=2 and BL12=VA1 Then VA1=0 : AL12=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  184.   If MB=13 and AM13=2 and BM13<VA1 Then BM13=VA1 : VA1=0 : AM13=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  185.   If MB=13 and AM13=2 and BM13>VA1 or MB=13 and AM13=2 and BM13=VA1 Then VA1=0 : AM13=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  186.   If MB=14 and AN14=2 and BN14<VA1 Then BN14=VA1 : VA1=0 : AN14=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  187.   If MB=14 and AN14=2 and BN14>VA1 or MB=14 and AN14=2 and BN14=VA1 Then VA1=0 : AN14=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  188.   If MB=15 and AO15=2 and BO15<VA1 Then BO15=VA1 : VA1=0 : AO15=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  189.   If MB=15 and AO15=2 and BO15>VA1 or MB=15 and A015=2 and BO15=VA1 Then VA1=0 : AO15=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  190.   If MB=16 and AP16=2 and BP16<VA1 Then BP16=VA1 : VA1=0 : AP16=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  191.   If MB=16 and AP16=2 and BP16>VA1 or MB=16 and AP16=2 and BP16=VA1 Then VA1=0 : AP16=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  192. Locate 3,22 : Pen 3 : Print "                                   "
  193. Locate 3,22 : Pen 2 : Print M$;" " : Input "move from where ";MA
  194.   If MA=1 and AA1=2 Then VA1=BA1 : BA1=BA1-VA1
  195.   If MA=2 and AB2=2 Then VA1=BB2 : BB2=BB2-VA1
  196.   If MA=3 and AC3=2 Then VA1=BC3 : BC3=BC3-VA1
  197.   If MA=4 and AD4=2 Then VA1=BD4 : BD4=BD4-VA1
  198.   If MA=5 and AE5=2 Then VA1=BE5 : BE5=BE5-VA1
  199.   If MA=6 and AF6=2 Then VA1=BF6 : BF6=BF6-VA1
  200.   If MA=7 and AG7=2 Then VA1=BG7 : BG7=BG7-VA1
  201.   If MA=8 and AH8=2 Then VA1=BH8 : BH8=BH8-VA1
  202.   If MA=9 and AI9=2 Then VA1=BI9 : BI9=BI9-VA1
  203.   If MA=10 and AJ10=2 Then VA1=BJ10 : BJ10=BJ10-VA1
  204.   If MA=11 and AK11=2 Then VA1=BK11 : BK11=BK11-VA1
  205.   If MA=12 and AL12=2 Then VA1=BL12 : BL12=BL12-VA1
  206.   If MA=13 and AM13=2 Then VA1=BM13 : BM13=BM13-VA1
  207.   If MA=14 and AN14=2 Then VA1=BN14 : BN14=BN14-VA1
  208.   If MA=15 and AO15=2 Then VA1=BO15 : BO15=BO15-VA1
  209.   If MA=16 and AP16=2 Then VA1=BP16 : BP16=BP16-VA1
  210. Locate 3,22 : Pen 2 : Input "where is destination ";MB
  211.   If MB=1 and AA1=2 or MB=1 and AA1=0 Then BA1=BA1+VA1 : VA1=0 : AA1=2
  212.   If MB=2 and AB2=2 or MB=2 and AB2=0 Then BB2=BB2+VA1 : VA1=0 : AB2=2
  213.   If MB=3 and AC3=2 or MB=3 and AC3=0 Then BC3=BC3+VA1 : VA1=0 : AC3=2
  214.   If MB=4 and AD4=2 or MB=4 and AD4=0 Then BD4=BD4+VA1 : VA1=0 : AD4=2
  215.   If MB=5 and AE5=2 or MB=5 and AE5=0 Then BE5=BE5+VA1 : VA1=0 : AE5=2
  216.   If MB=6 and AF6=2 or MB=6 and AF6=0 Then BF6=BF6+VA1 : VA1=0 : AF6=2
  217.   If MB=7 and AG7=2 or MB=7 and AG7=0 Then BG7=BG7+VA1 : VA1=0 : AG7=2
  218.   If MB=8 and AH8=2 or MB=8 and AH8=0 Then BH8=BH8+VA1 : VA1=0 : AH8=2
  219.   If MB=9 and AI9=2 or MB=9 and AI9=0 Then BI9=BI9+VA1 : VA1=0 : AI9=2
  220.   If MB=10 and AJ10=2 or MB=10 and AJ10=0 Then BJ10=BJ10+VA1 : VA1=0 : AJ10=2
  221.   If MB=11 and AK11=2 or MB=11 and AK11=0 Then BK11=BK11+VA1 : VA1=0 : AK11=2
  222.   If MB=12 and AL12=2 or MB=12 and AL12=0 Then BL12=BL12+VA1 : VA1=0 : AL12=2
  223.   If MB=13 and AM13=2 or MB=13 and AM13=0 Then BM13=BM13+VA1 : VA1=0 : AM13=2
  224.   If MB=14 and AN14=2 or MB=14 and AN14=0 Then BN14=BN14+VA1 : VA1=0 : AN14=2
  225.   If MB=15 and AO15=2 or MB=15 and AO15=0 Then BO15=BO15+VA1 : VA1=0 : AO15=2
  226.   If MB=16 and AP16=2 or MB=16 and AP16=0 Then BP16=BP16+VA1 : VA1=0 : AP16=2
  227. Locate 3,22 : Pen 6 : Print "moving troops to destination " : Wait 100
  228. Locate 3,22 : Print "                             "
  229. '    Fight 
  230.   If MB=1 and AA1=1 and BA1<VA1 Then BA1=VA1 : VA1=0 : AA1=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  231.   If MB=1 and AA1=1 and BA1>VA1 or MB=1 and AA1=1 and BA1=VA1 Then VA1=0 : AA1=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  232.   If MB=2 and AB2=1 and BB2<VA1 Then BB2=VA1 : VA1=0 : AB2=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  233.   If MB=2 and AB2=1 and BB2>VA1 or MB=2 and AB2=1 and BB2=VA1 Then VA1=0 : AB2=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  234.   If MB=3 and AC3=1 and BC3<VA1 Then BC3=VA1 : VA1=0 : AC3=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  235.   If MB=3 and AC3=1 and BC3>VA1 or MB=3 and AC3=1 and BC3=VA1 Then VA1=0 : AC3=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  236.   If MB=4 and AD4=1 and BD4<VA1 Then BD4=VA1 : VA1=0 : AD4=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  237.   If MB=4 and AD4=1 and BD4>VA1 or MB=4 and AD4=1 and BD4=VA1 Then VA1=0 : AD4=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  238.   If MB=5 and AE5=1 and BE5<VA1 Then BE5=VA1 : VA1=0 : AE5=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  239.   If MB=5 and AE5=1 and BE5>VA1 or MB=5 and AE5=1 and BE5=VA1 Then VA1=0 : AE5=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  240.   If MB=6 and AF6=1 and BF6<VA1 Then BF6=VA1 : VA1=0 : AF6=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  241.   If MB=6 and AF6=1 and BF6>VA1 or MB=6 and AF6=1 and BF6=VA1 Then VA1=0 : AF6=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  242.   If MB=7 and AG7=1 and BG7<VA1 Then BG7=VA1 : VA1=0 : AG7=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  243.   If MB=7 and AG7=1 and BG7>VA1 or MB=7 and AG7=1 and BG7=VA1 Then VA1=0 : AG7=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  244.   If MB=8 and AH8=1 and BH8<VA1 Then BH8=VA1 : VA1=0 : AH8=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  245.   If MB=8 and AH8=1 and BH8>VA1 or MB=8 and AH8=1 and BH8=VA1 Then VA1=0 : AH8=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  246.   If MB=9 and AI9=1 and BI9<VA1 Then BI9=VA1 : VA1=0 : AI9=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  247.   If MB=9 and AI9=1 and BI9>VA1 or MB=9 and AI9=1 and BI9=VA1 Then VA1=0 : AI9=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  248.   If MB=10 and AJ10=1 and BJ10<VA1 Then BJ10=VA1 : VA1=0 : AJ10=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  249.   If MB=10 and AJ10=1 and BJ10>VA1 or MB=10 and AJ10=1 and BJ10=VA1 Then VA1=0 : AJ10=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  250.   If MB=11 and AK11=1 and BK11<VA1 Then BK11=VA1 : VA1=0 : AK11=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  251.   If MB=11 and AK11=1 and BK11>VA1 or MB=11 and AK11=1 and BK11=VA1 Then VA1=0 : AK11=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  252.   If MB=12 and AL12=1 and BL12<VA1 Then BL12=VA1 : VA1=0 : AL12=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  253.   If MB=12 and AL12=1 and BL12>VA1 or MB=12 and AL12=1 and BL12=VA1 Then VA1=0 : AL12=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  254.   If MB=13 and AM13=1 and BM13<VA1 Then BM13=VA1 : VA1=0 : AM13=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  255.   If MB=13 and AM13=1 and BM13>VA1 or MB=13 and AM13=1 and BM13=VA1 Then VA1=0 : AM13=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  256.   If MB=14 and AN14=1 and BN14<VA1 Then BN14=VA1 : VA1=0 : AN14=2 : Locate 3,2 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  257.   If MB=14 and AN14=1 and BN14>VA1 or MB=14 and AN14=1 and BN14=VA1 Then VA1=0 : AN14=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  258.   If MB=15 and AO15=1 and BO15<VA1 Then BO15=VA1 : VA1=0 : AO15=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  259.   If MB=15 and AO15=1 and BO15>VA1 or MB=15 and AO15=1 and BO15=VA1 Then VA1=0 : AO15=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 100
  260.   If MB=16 and AP16=1 and BP16<VA1 Then BP16=VA1 : VA1=0 : AP16=2 : Locate 3,22 : Pen 12 : Print "     ";M$;" wins    " : Wait 100
  261.   If MB=16 and AP16=1 and BP16>VA1 or MB=16 and AP16=1 and BP16=VA1 Then VA1=0 : AP16=1 : Locate 3,22 : Pen 12 : Print "     ";N$;" wins    " : Wait 10
  262. ' add extra soldier
  263.  If AA1=1 or AA1=2 Then BA1=BA1+1
  264.  If AB2=1 or AB2=2 Then BB2=BB2+1
  265.  If AC3=1 or AC3=2 Then BC3=BC3+1
  266.  If AD4=1 or AD4=2 Then BD4=BD4+1
  267.  If AE5=1 or AE5=2 Then BE5=BE5+1
  268.  If AF6=1 or AF6=2 Then BF6=BF6+1
  269.  If AG7=1 or AG7=2 Then BG7=BG7+1
  270.  If AH8=1 or AH8=2 Then BH8=BH8+1
  271.  If AI9=1 or AI9=2 Then BI9=BI9+1
  272.  If AJ10=1 or AJ10=2 Then BJ10=BJ10+1
  273.  If AK11=1 or AK11=2 Then BK11=BK11+1
  274.  If AL12=1 or AL12=2 Then BL12=BL12+1
  275.  If AM13=1 or AM13=2 Then BM13=BM13+1
  276.  If AN14=1 or AN14=2 Then BN14=BN14+1
  277.  If AO15=1 or AO15=2 Then BO15=BO15+1
  278.  If AP16=1 or AP16=2 Then BP16=BP16+1
  279. Locate 0,23 : Print "                                "
  280. Locate 2,22 : Pen 6 : Print "all owned lands get an extra soldier " : Wait 100
  281. 'show stats
  282. Cls 
  283. Pen 2 : Print "Land   Soldiers  Player"
  284. Print ""
  285. If AA1=1 Then Pen 3 : Print "1      ";BA1;"       ";N$
  286. If AA1=2 Then Pen 12 : Print "1      ";BA1;"       ";M$
  287. If AB2=1 Then Pen 3 : Print "2      ";BB2;"       ";N$
  288. If AB2=2 Then Pen 12 : Print "2      ";BB2;"       ";M$
  289. If AC3=1 Then Pen 3 : Print "3      ";BC3;"       ";N$
  290. If AC3=2 Then Pen 12 : Print "3      ";BC3;"       ";M$
  291. If AD4=1 Then Pen 3 : Print "4      ";BD4;"       ";N$
  292. If AD4=2 Then Pen 12 : Print "4      ";BD4;"       ";M$
  293. If AE5=1 Then Pen 3 : Print "5      ";BE5;"       ";N$
  294. If AE5=2 Then Pen 12 : Print "5      ";BE5;"       ";M$
  295. If AF6=1 Then Pen 3 : Print "6      ";BF6;"       ";N$
  296. If AF6=2 Then Pen 12 : Print "6      ";BF6;"       ";M$
  297. If AG7=1 Then Pen 3 : Print "7      ";BG7;"       ";N$
  298. If AG7=2 Then Pen 12 : Print "7      ";BG7;"       ";M$
  299. If AH8=1 Then Pen 3 : Print "8      ";BH8;"       ";N$
  300. If AH8=2 Then Pen 12 : Print "8      ";BH8;"       ";M$
  301. If AI9=1 Then Pen 3 : Print "9      ";BI9;"       ";N$
  302. If AI9=2 Then Pen 12 : Print "9      ";BI9;"       ";M$
  303. If AJ10=1 Then Pen 3 : Print "10     ";BJ10;"       ";N$
  304. If AJ10=2 Then Pen 12 : Print "10     ";BJ10;"       ";M$
  305. If AK11=1 Then Pen 3 : Print "11     ";BK11;"       ";N$
  306. If AK11=2 Then Pen 12 : Print "11     ";BK11;"       ";M$
  307. If AL12=1 Then Pen 3 : Print "12     ";BL12;"       ";N$
  308. If AL12=2 Then Pen 12 : Print "12     ";BL12;"       ";M$
  309. If AM13=1 Then Pen 3 : Print "13     ";BM13;"       ";N$
  310. If AM13=2 Then Pen 12 : Print "13     ";BM13;"       ";M$
  311. If AN14=1 Then Pen 3 : Print "14     ";BN14;"       ";N$
  312. If AN14=2 Then Pen 12 : Print "14     ";BN14;"       ";M$
  313. If AO15=1 Then Pen 3 : Print "15     ";BO15;"       ";N$
  314. If AO15=2 Then Pen 12 : Print "15     ";BO15;"       ";M$
  315. If AP16=1 Then Pen 3 : Print "16     ";BP16;"       ";N$
  316. If AP16=2 Then Pen 12 : Print "16     ";BP16;"       ";M$
  317. Print ""
  318. Print ""
  319. Pen 2 : Print "         press any key to continue"
  320. Wait Key 
  321. T=1
  322. Goto LANDSHOW